home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / submit.asp < prev    next >
Text File  |  2002-03-12  |  11KB  |  388 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <%
  8.     dim receipt_text
  9.     dim success
  10.     dim DateAdded
  11.     dim LinkID
  12.     dim user_id
  13.     dim Title
  14.     dim URL
  15.     dim CatID
  16.     dim LinkTypeID
  17.     dim Description
  18.     dim DownloadURL
  19.     dim DownloadFee
  20.     dim Email
  21.     dim SUBMIT
  22.     dim add_link_sql
  23.  
  24. sub request_add_link
  25. ''' request expected input parameters for this form
  26.     DateAdded = request("DateAdded")
  27.     LinkID = request("LinkID")
  28.     user_id = request("user_id")
  29.     Title = request("Title")
  30.     URL = request("URL")
  31.     CatID = request("CatID")
  32.     LinkTypeID = request("LinkTypeID")
  33.     Description = request("Description")
  34.     DownloadURL = request("DownloadURL")
  35.     DownloadFee = request("DownloadFee")
  36.     Email = request("Email")
  37.     SUBMIT = request("SUBMIT")
  38. end sub
  39.  
  40. sub validate_add_link
  41. ''' request and validate data entered from this form
  42.     DateAdded = trim(request("DateAdded"))
  43.     if DateAdded = "" then
  44.         error_list.add "484202","DateAdded must be specified."
  45.         b_error = true
  46.     end if
  47.     if DateAdded <> "" AND (not isdate(DateAdded)) then
  48.         error_list.add "484202date","DateAdded must be a valid date (MM/DD/YY)."
  49.         b_error = true
  50.     end if
  51.     LinkID = trim(request("LinkID"))
  52.     user_id = trim(request("user_id"))
  53.     if user_id = "" then
  54.         error_list.add "484212","user_id must be specified."
  55.         b_error = true
  56.     end if
  57.     Title = trim(request("Title"))
  58.     if Title = "" then
  59.         error_list.add "484210","Site Title must be specified."
  60.         b_error = true
  61.     end if
  62.     URL = trim(request("URL"))
  63.     if URL = "" then
  64.         error_list.add "484211","URL must be specified."
  65.         b_error = true
  66.     end if
  67.     CatID = trim(request("CatID"))
  68.     if CatID = "" then
  69.         error_list.add "484213","Category must be specified."
  70.         b_error = true
  71.     end if
  72.     LinkTypeID = trim(request("LinkTypeID"))
  73.     if LinkTypeID = "" then
  74.         error_list.add "484208","Resource Type must be specified."
  75.         b_error = true
  76.     end if
  77.     Description = trim(request("Description"))
  78.     if Description = "" then
  79.         error_list.add "484203","Description must be specified."
  80.         b_error = true
  81.     end if
  82.     DownloadURL = trim(request("DownloadURL"))
  83.     DownloadFee = trim(request("DownloadFee"))
  84.     Email = trim(request("Email"))
  85.     if Email = "" then
  86.         error_list.add "484206","Email must be specified."
  87.         b_error = true
  88.     end if
  89.     SUBMIT = trim(request("SUBMIT"))
  90. end sub
  91.  
  92. sub get_defaults_add_link
  93. ''' set default values for this form
  94.     DateAdded = "" & now() & ""
  95.     user_id = session("user_id")
  96.     SUBMIT = "SUBMIT"
  97. end sub
  98.  
  99. sub db_select_add_link
  100.     sql = "SELECT " & _     "DateAdded, " & _     "LinkID, " & _     "user_id, " & _     "Title, " & _     "URL, " & _     "CatID, " & _     "LinkTypeID, " & _     "Description, " & _     "DownloadURL, " & _     "DownloadFee, " & _     "Email FROM Links" & _     " WHERE " & _     "Links.LinkID = " & to_sql(LinkID,"number") & ""
  101.     on error resume next
  102.     set rs = cn.Execute(sql)
  103.     if err.number <> 0 then
  104.         b_error = true
  105.         error_list.add "select_data_add_link", "The data selection failed. " & err.description
  106.     elseif rs.EOF then
  107.         b_results = false
  108.         msg_list.add "select_data_add_link", "The record was removed from the database."
  109.     else
  110.         DateAdded = rs("DateAdded")
  111.         LinkID = rs("LinkID")
  112.         user_id = rs("user_id")
  113.         Title = rs("Title")
  114.         URL = rs("URL")
  115.         CatID = rs("CatID")
  116.         LinkTypeID = rs("LinkTypeID")
  117.         Description = rs("Description")
  118.         DownloadURL = rs("DownloadURL")
  119.         DownloadFee = rs("DownloadFee")
  120.         Email = rs("Email")
  121.         SUBMIT = rs("SUBMIT")
  122.     end if
  123.     rs.Close
  124.     on error goto 0
  125. end sub
  126. sub db_insert_add_link
  127.     sql = "INSERT INTO Links" & _     "(" & _     "CatID," & _     "DateAdded," & _     "Description," & _     "DownloadFee," & _     "DownloadURL," & _     "Email," & _     "LinkTypeID," & _     "Title," & _     "URL," & _     "display," & _     "user_id" & _     ") VALUES (" & _     "" & to_sql(CatID,"number") & "," & _     "" & to_sql(DateAdded,"text") & "," & _     "" & to_sql(Description,"text") & "," & _     "" & to_sql(DownloadFee,"text") & "," & _     "" & to_sql(DownloadURL,"text") & "," & _     "" & to_sql(Email,"text") & "," & _     "" & to_sql(LinkTypeID,"number") & "," & _     "" & to_sql(Title,"text") & "," & _     "" & to_sql(URL,"text") & "," & _     "0," & _     "" & to_sql(user_id,"number") & ")" & _     ""
  128.     'response.write sql
  129.     on error resume next
  130.     cn.Execute(sql)
  131.     if err.Number <> 0 then
  132.         b_error = true
  133.         error_list.add "db_insert_add_link" & err.Number ,"The database insert failed. " & err.Description
  134.     else
  135.         set rs = cn.Execute("SELECT @@IDENTITY")
  136.         LinkID = rs(0)
  137.         rs.Close
  138.         msg_list.add "db_insert_add_link","The database insert was successful."    end if
  139.     on error goto 0
  140. end sub
  141. sub db_update_add_link
  142.     sql = "UPDATE Links SET " & _     "DateAdded = " & to_sql(DateAdded,"text") & ", " & _     "user_id = " & to_sql(user_id,"number") & ", " & _     "Title = " & to_sql(Title,"text") & ", " & _     "URL = " & to_sql(URL,"text") & ", " & _     "CatID = " & to_sql(CatID,"number") & ", " & _     "LinkTypeID = " & to_sql(LinkTypeID,"number") & ", " & _     "Description = " & to_sql(Description,"text") & ", " & _     "DownloadURL = " & to_sql(DownloadURL,"text") & ", " & _     "DownloadFee = " & to_sql(DownloadFee,"text") & ", " & _     "Email = " & to_sql(Email,"text") & " WHERE " & _     "LinkID = " & to_sql(LinkID,"number") & ""
  143.     'response.write sql
  144.     on error resume next
  145.     cn.execute(sql)
  146.     if err.number <> 0 then
  147.         b_error = true
  148.         error_list.add "db_update_add_link" & err.Number ,"The database update failed. " & err.Description
  149.     else
  150.         msg_list.add "db_update_add_link" & LinkID,"The database update was successful."
  151.     end if
  152.     on error goto 0
  153. end sub
  154. sub db_delete_add_link
  155.     sql = "DELETE FROM Links" & _     " WHERE " & _     "LinkID = " & to_sql(LinkID,"number") & ""
  156.     'response.write sql
  157.     on error resume next
  158.     cn.Execute(sql)
  159.     if err.number <> 0 then
  160.         b_error = true
  161.         error_list.add "db_delete_add_link" & err.Number ,"The database deletion failed. " & err.Description
  162.     else
  163.         msg_list.add "db_delete_add_link","The record was removed."
  164.     end if
  165.     on error goto 0
  166. end sub
  167.  
  168. do_search = request("do_search")
  169. ''' request form keys
  170. receipt_text = request("receipt_text")
  171. success = request("success")
  172. LinkID = request("LinkID")
  173. ''' request action
  174. action = lcase(request("action"))
  175. ''' action case handler
  176. select case action
  177.  
  178. case "select_add_link"
  179. '  select the requested key record from database
  180. if LinkID <> "" then
  181.     db_select_add_link
  182. else
  183.     b_error = true
  184.     error_list.add "edit_add_link", "Specify record to select."
  185. end if
  186.  
  187.  
  188. case "insert_add_link"
  189. '  request form data and insert a new record into database
  190.  
  191. validate_add_link
  192. if not b_error then
  193.     db_insert_add_link
  194.     if not b_error then response.redirect "submit.asp?success=1"
  195. end if
  196.  
  197.  
  198.  
  199. case "update_add_link"
  200. '  request form data and update an existing database record
  201. validate_add_link
  202. if not b_error then
  203. if LinkID <> "" then
  204.     db_update_add_link
  205. else
  206.     b_error = true
  207.     error_list.add "update_add_link", "Specify record to update."
  208. end if
  209. end if
  210.  
  211.  
  212. case "delete_add_link"
  213. '  delete the requested key database record
  214. if LinkID <> "" then
  215.     db_delete_add_link
  216.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  217. else
  218.     b_error = true
  219.     error_list.add "delete_add_link", "Specify record to delete."
  220. end if
  221.  
  222.  
  223. end select
  224.  
  225. '  no action was specified, so handle the default case(s)
  226. if receipt_text <> "" AND success <> "" then
  227.     db_select_receipt_text
  228. end if
  229.  
  230. if LinkID <> "" then
  231.     db_select_add_link
  232. else
  233.     get_defaults_add_link
  234. end if
  235.  
  236.  
  237. %>
  238.  
  239. <!-- #include file='i_header.asp' -->
  240. <!-- #include file='i_menu.asp' -->
  241.  
  242.  
  243. <%
  244. display_errs
  245. display_msg
  246. %>
  247.  
  248. <% if success = 1 then %>
  249. <!-- display receipt text -->
  250.         <ul>
  251.  
  252. Thanks for submitting your site. It will be reviewed for inclusion in our links section.
  253.  
  254. </ul>
  255.         
  256.  
  257.  
  258. <% else %>
  259. <!-- display the submit form -->
  260. <% CatId = request("CatId") %>
  261. <table class='headerTable'>
  262. <tr>
  263. <td class='headerTD'>
  264. Suggest your site
  265. </td>
  266. </tr>
  267. </table>
  268. <table  style={width:'100%';}>
  269. <form name="add_link" action="submit.asp" method="post" >
  270.         
  271.         <input type=hidden name="DateAdded" value="<% =DateAdded %>">
  272.         
  273.         
  274.         <input type=hidden name="LinkID" value="<% =LinkID %>">
  275.         
  276.         
  277.         <input type=hidden name="user_id" value="<% =user_id %>">
  278.         
  279. <tr>
  280.     <td class='labelTD'>Site Title</td>
  281.     <td class='dataTD' >
  282.         <input type=text  name="Title" size="" maxlength="60" value="<% =Title%>">
  283.     </td>
  284.     <td class='labelTD'></td>
  285. </tr>
  286. <tr>
  287.     <td class='labelTD'>URL</td>
  288.     <td class='dataTD' >
  289.         <input type=text  name="URL" size="" maxlength="100" value="<% =URL%>">
  290.     </td>
  291.     <td class='labelTD'></td>
  292. </tr>
  293. <tr>
  294.     <td class='labelTD'>Category</td>
  295.     <td class='dataTD' >
  296.         
  297.         <select name="CatID" >
  298.         <option></option>
  299.         <%
  300.          =get_options ("SELECT Cats3.CatId, Cats.Cat, Cats1.Cat, Cats2.Cat, Cats3.Cat FROM (((Cats As Cats3 left JOIN Cats As Cats2 ON Cats3.ParentId = Cats2.CatId) left JOIN Cats As Cats1 ON Cats2.ParentId = Cats1.CatId) LEFT JOIN Cats As Cats ON Cats1.ParentId = Cats.CatId) WHERE Cats.ParentId is NULL order by (Cats.Cat + Cats1.Cat + Cats2.Cat + Cats3.Cat)", CatID) 
  301.         %>
  302.         </select>
  303.         
  304.     </td>
  305.     <td class='labelTD'></td>
  306. </tr>
  307. <tr>
  308.     <td class='labelTD'>Resource Type</td>
  309.     <td class='dataTD' >
  310.         
  311.         <select name="LinkTypeID" >
  312.         
  313.         <%
  314.          =get_options ("SELECT LinkTypeID, LinkType FROM LinkTypes", LinkTypeID) 
  315.         %>
  316.         </select>
  317.         
  318.     </td>
  319.     <td class='labelTD'></td>
  320. </tr>
  321. <tr>
  322.     <td class='labelTD'>Description</td>
  323.     <td class='dataTD' >
  324.         
  325.         <textarea  name="Description" rows='5' cols='60'><% =Description%></textarea>
  326.         
  327.     </td>
  328.     <td class='labelTD'>upto 100 words - no HTML!</td>
  329. </tr>
  330. <tr>
  331.     <td class='labelTD'>Download URL</td>
  332.     <td class='dataTD' >
  333.         <input type=text  name="DownloadURL" size="" maxlength="100" value="<% =DownloadURL%>">
  334.     </td>
  335.     <td class='labelTD'>if you product is downloadable, specify the download url</td>
  336. </tr>
  337. <tr>
  338.     <td class='labelTD'>Minimum Cost/Fee</td>
  339.     <td class='dataTD' >
  340.         <input type=text  name="DownloadFee" size="" maxlength="40" value="<% =DownloadFee%>">
  341.     </td>
  342.     <td class='labelTD'>if you sell products or services on your site, what is the minimum cost?</td>
  343. </tr>
  344. <tr>
  345.     <td class='labelTD'>Email</td>
  346.     <td class='dataTD' >
  347.         <input type=text  name="Email" size="" maxlength="50" value="<% =Email%>">
  348.     </td>
  349.     <td class='labelTD'>used for aspapp.com internal use only</td>
  350. </tr>
  351. <tr>
  352.     <td class='labelTD'></td>
  353.     <td class='dataTD' >
  354.         <input class=cmd  type=submit name="SUBMIT" value="SUBMIT" >
  355.     </td>
  356.     <td class='labelTD'></td>
  357. </tr>
  358. <tr>
  359.     <td class=labelTD align=right> 
  360.     <% if LinkID <> "" then %><% end if %>
  361.     </td>
  362.     <td class=dataTD>
  363.     <% if LinkID = "" then %><% end if %>
  364.     </td>
  365.     <td class=labelTD> 
  366.     </td>
  367. <input type=hidden name="action" value="<% if LinkID <> "" then %>update<% else %>insert<%end if %>_add_link"></tr>
  368.  
  369. </form>
  370. </table>
  371.  
  372. <% end if %>
  373.  
  374. <!-- #include file=i_footer.asp -->
  375.  
  376.  
  377. <%
  378. ':: assure that any db resources are freed
  379. on error resume next
  380. rs.Close
  381. set rs = NOTHING
  382. cn.Close
  383. set cn = NOTHING
  384. user_cn.Close
  385. set user_cn = NOTHING
  386. on error goto 0
  387. %>
  388.